;; I don't usually want funny core allocations
(comment)
;; Do all sorts of things, but only say "splat"
(car (list '* (prog nil
;; I want character mode!!
	(sstatus linmode nil)
;; Set up decimal base
	(setq base (setq ibase 10.))
;; I don't want to see a decimal point
	(setq *nopoint t)
;; Print today's date and time
	(print (status dow))
	((lambda (date)
	   ((lambda (m)
		(princ (cond ((= m 1) 'January/ )
			     ((= m 2) 'February/ )
			     ((= m 3) 'March/ )
			     ((= m 4) 'April/ )
			     ((= m 5) 'May/ )
			     ((= m 6) 'June/ )
			     ((= m 7) 'July/ )
			     ((= m 8.) 'August/ )
			     ((= m 9.) 'September/ )
			     ((= m 10.) 'October/ )
			     ((= m 11.) 'November/ )
			     ((= m 12.) 'December/ ))))
			(cadr date))
		(princ (caddr date))
		(princ '/,/ 19)
		(princ (car date)))
	   (status date)))
	(princ '/	)
	((lambda (x)
		(princ (car x))
		(princ ':)
		(princ (cadr x))
		(princ ':)
		(princ (caddr x)))
	 (status daytime))
	(terpri)
)))